Appl.Ser.Na 10/573,342 

Amendment dated December 21 , 2007 

Reply to Office Action mailed September 26. 2007 

Amendments to the Specification 

Please add the following Code Appendix, which was missing from the published application 
U.S. Pub, No. US 2007/0023444^ but incorporated by reference in paragraph 33 of the 
published application and included with the International PCT Application: 

CODE APPENDIX 

;; Assembly code for PillSafe 

list p^l2f675 
include "pl2f 675 . inc" 



timer_cnt 


equ 


0x20 




isr_w_save 


equ 


0x21 




isr_status_ 


save 


equ 


0x22 


WAIT_H 




equ 


0x23 


WAIT_L 




equ 


0x24 


CNTl 


equ 


0x25 




CNTO 


equ 


0x26 




GP_S0LEN0ID 


equ 


0x0 




GP_BUTTON_USER 


equ 


0x1 


GP_LED 




equ 


0x2 


GP_BUTTON_iX)NE 


equ 


0x3 



^CONFIG _CPD_OFF & _CP_OFF & _BODEN_OFF Sl _MCLRE_0FF & _PWRTE_OFF & 

_WDT_OFF Sc _INTRC_OSC_NOCLKOUT 

goto main 



org 0x004 
dispatch_interrupt : 
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; ; save W, STATUS 
movwf isr_w_save 

swapf STATUS, W / swapf does not affect status reg* 
movwf isr_status_save 

btfsc PIRl, TMRIIF ; did we get here because of a timerl overflow? 

call timerl^isr 

btfsc INTCON, GPIP ; interrupt on GPIO pin? 

cal 1 gpio_change_isr 

; ; restore W, Status 
swapf isr_status_save, 
movwf STATUS 
swapf isr_w_save, F 
swapf isr_w_save, W 
retf ie 

timerl^isr: 

;; clear timer interrupt flag, and set timer_cnt flag 
bcf PIRl, TMRIIF 
; bsf timer__cnt, 0 

return 

gpio_change_isr : 

;/ read from GPIO to prevent GPIF getting set again, and clear GPIF 
movf GPIO, F 
bcf XNTCON, GPIF 
return 

; ; main 

main: 

bcf STATUS, RPO 
clrf GPIO 
movlw 0x7 

movwf CMCON ; disable comparator 

clrf TMRO 



W 

; swapf does not affect STATUS 
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moviw 0x40 ; enable peripheral interrupts 

movwf INTCON 

clrf TICON ; timerl off 

clrf TMRIL ; clear timerl 

clrf TMRIH 
clrf PIRl 
clrf ADCONO 

. , **************************************** 

It- 

;; BANKl 

. . ********************************^* 
bsf STATUS, RPO 

movlw -( (1 « GP^SOLENOID) I (1 « GP_LED) ) 
movwf TRISIO 
clrf VRGON 

clrf OPTION_REG ; enable weak pull-ups 
clrf WPU ; use pull-ups with buttons 

clrf ANSEL 

movlw 0x01 ; enable timerl interrupt 

movwf PIEl 

bcf STATUS, RPO 

. . ******************************************** * *.* * 
BANKO 

- . ***** *************** ***********************^*^ 

bsf INTCON, GIE ; enable all unmasked interrupts 
infinite: 

movlw 0x03 ; WAIT = 0x0203 

movwf WAIT_L 

movlw 0x02 

movwf WAIT_H 

call wait_long 

bsf GPIO, GP_LED 

call wait_for_button 

bcf GPIO, GP_LED 

call dispense 

goto infinite 

. . , *.**********************:**********♦******************************** 
lit 
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wait:__for_timeout - sleep until the desired time has passed expires 
*********************** ********** « * ***** * * ************************ 

TODO: longer delays, sleep wait 
wait_f or_timeout ; 

/ ; setup timer interrupt 
clrf TICON ; timerl off 

clrf TMRIL ; clear timerl 

clrf TMRIH 

movlw OxOf ; timerl always oD; prescale 8:1 

LP oscillator, async mode, timerl on 

movwf TICON 

bcf PIRl, TMRIIF 

bsf STATUS, RPO ; *** bankl 

bsf PIEl, TMRIIE ; enable timerl interrupt 

bcf STATUS, RPO ; *** bankO 

;; sleep {or wait) repeatedly until timeout period is over 
sleep 

bcf timer_cnt, 0 
t_wait: btfss timer_cnt, 0 
goto t_wait 



;/ Disable timer and timer interrupt 

bsf STATUS, RPO ; bankl 

bcf PIEl, TMRIIE 

bcf STATUS, RPO ; *** bankO 

return 



. . . ****************************************************************** 

;;; wait_long - Decrement: WAIT_L to 0 WAIT_H times with prescale set 
;;; to 8:1. 

;;; When WAIT_L is 15, this WAIT_H will be the number of 4 

;// minute intervals. When WAIT_L is 225, WAIT_H is the number 

;;; of hours to wait. 

;;; ASSUME; WAIT_H and WAIT_L are both at least 1 

. . . ****************************************************************** 

wait_long : 
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clrf TICON ; turn timerl off 

; ; setup tmrlh and tmrll 
clrf TMRIL 
clrf TMRIH 

movlw ((1«T1CKPS1) I (1«T1CKPS0) | (1«T10SCEN) | (1<<N0T_T1SYNC) | (1«TMR1CS 
) I (1<<TMR10N) ) 

movwf TICON 

movf WAIT_H, W 

movwf CNTl 
wait_long_loop_h: ; do { 

movf WAIT_L, W 

movwf CNTO 
wait_long_loop_l : ; do { 

call wait_f or_timerl 

decfsz CNTO, F ; } while (CNTO > 0); 

goto wait_long_loop_l 

decfsz CNTl, F ; } while(CNTl > 0) ; 

goto wa i t _ 1 ong_l oop__h 
bcf TICON, TMRION 
return 

tit 

; ; ; wait^ticks - sleep for number of timerl ticks in WAIT_H, WAIT^L 

, . * ********************* ***********ir****:j^**4r** iki( ********* * * * * * * * 

wait_ticks : 

clrf TICON ; turn timerl off, prescaling to 1:1 

; / setup tmrlh and tmrll 

comf WAIT_L, W 

movwf TMRIL 

comf WAIT^H, W 

movwf TMRIH 

incfsz TMRIL, F 

decf TMRIH, F 

incf TMRIH, F 

movlw ( (1«T10SCEN) | (1<<N0T_T1SYNC) | (1«TMR1CS) | (1«TMR10N) ) 
movwf TICON 
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cal 1 wa i t_f o r__t imer 1 
bcf TICON, TMRION 
return 

. . . *******************.***************************** 
; ; ; wait_f or_timerl - sleep until timerl interrupts 

;;; ASSUME: TMRIL, TMRIH, and prescaling bits are already set 

;;; ASSUME: The value in TMRIH & TMRIL is big enough that timerl 

;;; will not interrupt before wait_f or_timerl sleeps 

;;; ASSUME: No extraneous interrupts will wake wait_for_timerl from sleep 

. . . ******************************************************^ 

;;; TODO: longer delays, sleep wait 
wait_f or_t:imerl ; 

bcf PIRl, TMRIIF 

;; TODO: maybe leave timerl interrupt enabled all the time. 
;; As long as timer is off, no interrupts will happen 
bsf STATUS, RPO ; *** bankl 

bsf PIEl, TMRIIE } enable timerl interrupt 

bcf STATUS, RPO ; *** baxikO 

; ; sleep repeatedly until timeout period is over 
sleep 

;; Disable timer and timer interrupt 

bsf STATUS, RPO ; *** bankl 

bcf PIEl, TMRIIE 

bcf STATUS, RPO ; *** bankO 

return 

. . . ********************************************************* 

;;; wait_f or__button - sleep until a button is pressed 

♦ . . ******************************************************** * * *********** 
wait_forjDutton: 

; ; setup button interrupt 

bsf STATUS, RPO / *** bankl 

bsf WPU, GP_BUTTON_USER 

bsf IOC, GP_BUTTON_USER 
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bcf STATUS, RPO ; *** bankO 
bsf INTCON, GPIE 

/; sleep until button interrupt 

;; TODO: is polling the button necessary, or even a good thing? 
sleep_wait : 
sleep 

btfsc GPIO, GP_BOTTON_USER 
goto sleep_wait 

; ; disable button interrupt 

bcf INTCON, GPIE 

bsf STATUS, RPO ; *** bankl 

bcf IOC, GP_BUTTON_USER 

bcf WPU, GP_BUTTON_USER 

bcf STATUS, RPO ; *** bankO 

return 

. . . ************************************************** 

; ; ; dispense - dispense a pill (activate the solenoid) 
. . . **************************************************** 

dispense: 

;; enable solenoid and sleep until it has moved (use 100 ms) 

bsf GPIO, GP^SOLENOID ; GP_SOLENOID « 1 
movlw Oxcd ; WAIT - 0x0 ccd 

movwf WAIT^L 
movlw OxOc 
movwf WAIT_H 

call wait_ticks ; wait_ticks () 

bcf GPIO, GP^SOLENOID / GP^SOLENOID = 0 

return 

end 
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